File:of Disk: Disks/Build-2007/Build-11-03-07
(Source file text)
/EDIT HANDLER PAL8-V10A 11-MAR-84 PAGE 1 /EDIT HANDLER / / / / / / / / / /COPYRIGHT (C) 1974,1975 BY DIGITAL EQUIPMENT CORPORATION / / / / / / / / / / /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. / /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. / /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY /DIGITAL. / / / / / / / / / / /EDIT HANDLER 6660 PSXX=6660 / EDOU like PTP 6661 PSKF=6661 6662 PCLF=6662 6663 PSKE=6663 6664 PSTB=6664 6665 PSIE=6665 6666 PCLP=6666 6667 PCIE=6667 /EDIT HANDLER PAL8-V10A 11-MAR-84 PAGE 1-1 6651 RSKF=6651 / EDIN like PTR 6652 RRRB=6652 6653 RSKE=6653 6654 RRFC=6654 6656 RFRB=6656 0000 *0 00000 7776 -2 00001 0504 DEVICE EDIT;DEVICE EDOU;1430;EDO&177;ZBLOCK 2 00002 1124 00003 0504 00004 1725 00005 1430 00006 0000 00007 0000 00011 0504 DEVICE EDIT;DEVICE EDIN;2440;EDI&177;ZBLOCK 2 00012 1124 00013 0504 00014 1116 00015 2440 00016 0113 00017 0000 0001 VERSION="A&77 0200 *200 00200 0001 EDO, VERSION 00201 7320 CLA CLL CML /SET LINK ON TO INDICATE PUNCH 00202 4233 JMS ESETUP /DO COMMON CRAP 00203 1712 EDOLP, TAD I EDOCA 00204 4302 JMS EDOPCH /FIRST CHAR IN LOW ORDER 8 BITS OF WORD 1 00205 3313 DCA EDI 00206 2312 ISZ EDOCA 00207 1712 TAD I EDOCA 00210 4302 JMS EDOPCH /SECOND CHAR IN LOW ORDER 8 BITS OF WORD 2 00211 7112 CLL RTR 00212 7012 RTR 00213 1313 TAD EDI 00214 7012 RTR 00215 7012 RTR /THIRD CHARACTER NOW IN AC 00216 4302 JMS EDOPCH 00217 2312 EDOEND, ISZ EDOCA 00220 0070 ED70, 70 /JUST IN CASE WERE PUNCHING PG 7600 /KEEP THIS LITERAL HERE 00221 6031 KSF 00222 5272 JMP EDOISZ /KEYBOARD FLAG OFF - DON'T WORRY ABOUT ^C 00223 6034 EDOKRS, KRS 00224 0353 AND EDO177 00225 1377 TAD EDOM3 00226 7640 SZA CLA /IS THERE A ^C IN THE TTY BUFFER? 00227 5272 JMP EDOISZ /NO 00230 6203 EDOCIF, CDF CIF 0 /EDIT HANDLER PAL8-V10A 11-MAR-84 PAGE 1-2 00231 5632 JMP I .+1 00232 7600 7600 00233 0000 ESETUP, 0 00234 6214 RDF /GET FIELD OF CALLING PROGRAM 00235 1230 TAD EDOCIF 00236 3300 DCA EDOXIT /SET UP RETURN SEQUENCE 00237 1600 TAD I EDO 00240 0220 AND ED70 00241 1374 TAD PCDF 00242 3257 DCA EDOCDF 00243 7010 RAR /GET LINK(1=EDO,0=EDI) 00244 1600 TAD I EDO /GET FUNCTION WORD 00245 2200 ISZ EDO 00246 7510 SPA /CHECK CORRECT MODE 00247 5372 JMP EDOERR /SIGNAL "UNRECOVERABLE DEVICE ERROR" 00250 0346 AND ED7700 00251 7040 CMA /SET UP -(WORD COUNT)/2-1 00252 3376 DCA EDOWC 00253 1600 TAD I EDO /SET UP STARTING ADDRESS 00254 2200 ISZ EDO 00255 3312 DCA EDOCA 00256 1600 TAD I EDO 00257 0000 EDOCDF, 0 /SET DATA FIELD TO ACCESS BUFFER 0257 EDOEOF=EDOCDF 00260 7650 SNA CLA 00261 7630 SZL CLA 00262 5223 JMP EDOKRS 00263 1352 TAD EDO336 /INPUT INITIALIZATION - TYPE "^" AND WAIT 00264 6046 TLS 00265 6031 KSF 00266 5265 JMP .-1 00267 4344 JMS EDIGCH /INITIALIZE THE EDI BUFFER CHAR 00270 6032 6032 /CLEAR AC AND KEYBOARD FLAG 00271 5223 JMP EDOKRS /CHECK FOR ^C 00272 2376 EDOISZ, ISZ EDOWC 00273 5633 JMP I ESETUP /LOOP FOR BUFFER SIZE (128 WORDS) 00274 1257 EDORTN, TAD EDOEOF 00275 7640 SZA CLA /DID WE RUN OUT OF TAPE? 00276 2200 ISZ EDO 00277 2200 ISZ EDO 00300 7402 EDOXIT, HLT /EXIT CDF GOES HERE 00301 5600 JMP I EDO 00302 0000 EDOPCH, 0 00303 7450 SNA 00304 5702 JMP I EDOPCH /IGNORE NULLS 00305 6666 PCLP /NOTICE THE GLORIOUS LACK OF OVERLAP 00306 6661 PSKF 00307 5306 JMP .-1 00310 0341 AND ED7400 00311 5702 JMP I EDOPCH 00312 0000 EDOCA, 0 00313 0001 EDI, VERSION /*** CORRECT ENTRY IN MAIN ASSEMBLY IF THIS IS MOVED! /EDIT HANDLER PAL8-V10A 11-MAR-84 PAGE 1-3 00314 7300 CLA CLL 00315 1313 TAD EDI 00316 3200 DCA EDO 00317 4233 JMS ESETUP /SET UP ADDRESS, COUNT, FIELDS 00320 4344 EDILP, JMS EDIGCH /READ FIRST CHARACTER OF 3 00321 3712 DCA I EDOCA 00322 4344 JMS EDIGCH 00323 3302 DCA EDOPCH 00324 4344 JMS EDIGCH 00325 7006 RTL 00326 7006 RTL 00327 0341 AND ED7400 00330 1712 TAD I EDOCA 00331 3712 DCA I EDOCA /HIGH ORDER 4 BITS INTO WORD 1 00332 1313 TAD EDI /GET THE CHAR FROM THE EDI BUFFER 00333 7012 RTR 00334 7012 RTR 00335 7010 RAR /PUT THE LOW ORDER BITS INTO AC 0-3 00336 0341 AND ED7400 00337 1302 TAD EDOPCH 00340 2312 ISZ EDOCA 00341 7400 ED7400, 7400 00342 3712 DCA I EDOCA /LOW ORDER 4 BITS INTO WORD 2 00343 5217 JMP EDOEND 00344 0000 EDIGCH, 0 00345 1257 TAD EDOEOF 00346 7700 ED7700, SMA CLA /INITIALIZED WITH 62X1 00347 5360 JMP ED0BFR /MAKE SURE BUFFER IS ZEROED 00350 6654 RRFC 00351 0232 EDO232, 232 00352 0336 EDO336, 336 /FALL THROUGH CONSTANTS TO STALL FOR TIME 00353 0177 EDO177, 177 00354 6653 EDTIME, RSKE /END OF FILE? 00355 5362 JMP EDCHLP 00356 3257 DCA EDOEOF 00357 1351 TAD EDO232 /SEND ^Z TO BUFFER 00360 3313 ED0BFR, DCA EDI 00361 5367 JMP EDIXX /AND 0 GARBAGE CHARACTER 00362 1375 EDCHLP, TAD EDOTMP 00363 3313 DCA EDI 00364 6651 RSKF 00365 5354 JMP EDTIME /READER NOT READY - CHECK TIMING 00366 6652 RRRB /READER READY - READ CHAR 00367 3375 EDIXX, DCA EDOTMP /BUFFER READER BY ONE CHARACTER TO ELIMINATE 00370 1313 TAD EDI /GARBAGE CHARACTER AT END OF TAPE 00371 5744 JMP I EDIGCH /AND RETURN 00372 7330 EDOERR, CLA CLL CML RAR /SIGNAL A "PERMANENT I/O ERROR" ON THE DEVICE 00373 5276 JMP EDOXIT-2 00374 6201 PCDF, CDF 0 00375 0000 EDOTMP, 0 00376 0000 EDOWC, 0 00377 7775 EDOM3, -3 $$$$$$$$ /EDIT HANDLER PAL8-V10A 11-MAR-84 PAGE 2 EDCHLP 0362 EDI 0313 EDIGCH 0344 EDILP 0320 EDIXX 0367 EDO 0200 EDOCA 0312 EDOCDF 0257 EDOCIF 0230 EDOEND 0217 EDOEOF 0257 EDOERR 0372 EDOISZ 0272 EDOKRS 0223 EDOLP 0203 EDOM3 0377 EDOPCH 0302 EDORTN 0274 EDOTMP 0375 EDOWC 0376 EDOXIT 0300 EDO177 0353 EDO232 0351 EDO336 0352 EDTIME 0354 ED0BFR 0360 ED70 0220 ED7400 0341 ED7700 0346 ESETUP 0233 PCDF 0374 PCIE 6667 PCLF 6662 PCLP 6666 PSIE 6665 PSKE 6663 PSKF 6661 PSTB 6664 PSXX 6660 RFRB 6656 RRFC 6654 RRRB 6652 RSKE 6653 RSKF 6651 VERSIO 0001 ERRORS DETECTED: 0 LINKS GENERATED: 0